home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / patrouille espac (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  240 lines
  1. 10 DIM L%(12)
  2. 20 BA=20:SC=0:BI=20:BL=500
  3. 30 SO=32768:VO=53248:MF=49530:S=54272
  4. 40 GOSUB1570
  5. 50 OP=5:POKEMF+0,1
  6. 60 IF PEEK(MF+6)=.THEN90
  7. 70 POKEMF+6,0:IF DI THEN POKESO+1016,PEEK(SO+1016)-2:DI=0:GOTO90
  8. 80 A$=RIGHT$(A$,1)+LEFT$(A$,49):POKE214,22:PRINT:PRINT""LEFT$(A$,40);
  9. 90 IF PEEK(MF+7)=.THEN120
  10. 100 POKEMF+7,0:IFDI=.THENPOKESO+1016,PEEK(SO+1016)+2:DI=1:GOTO120
  11. 110 A$=RIGHT$(A$,49)+LEFT$(A$,1):POKE214,22:PRINT:PRINT""LEFT$(A$,40);
  12. 120 IF PEEK(MF+4)=.THENPOKEMF+4,HF:SYS49389
  13. 130 IF PEEK(MF+8)THENGOSUB940:POKEMF+8,0
  14. 140 IFBA=.ANDPEEK(SO+939)=45ANDPEEK(56320)=125ANDPEEK(VO+1)=227THENGOSUB640
  15. 150 IFPEEK(MF)THEN170
  16. 160 POKEMF,1:OP=OP-1:POKESO+30+2*OP,30:POKESO+31+2*OP,31:GOSUB430
  17. 170 GETR$:IFR$<>""THENGOSUB390:GOTO170
  18. 180 IFOP>0THEN60
  19. 190 IFSC>HITHENHI=SC
  20. 200 H1=INT(HI/65536):POKE820,H1
  21. 210 HI=HI-H1*65536:H1=INT(HI/256):POKE821,H1
  22. 220 H1=HI-H1*256:POKE822,H1
  23. 230 PRINT"[158]":I$="[145]^_^_^_^_^_"
  24. 240 FORI=29TO0STEP-1:GOSUB430
  25. 250 IFPEEK(MF+4)THEN250
  26. 260 POKEMF+4,5
  27. 270 I$=I$+LEFT$(RIGHT$(I$,2),1)
  28. 280 PRINTSPC(I)I$;:NEXT
  29. 290 FORI=1TO21:PRINT:PRINTI$;:GOSUB430
  30. 300 IF PEEK(MF+4)THEN300
  31. 310 POKEMF+4,10:NEXT
  32. 320 PRINT"[159]"SPC(8)"   NOUVELLE PARTIE?(O OU N)"
  33. 330 GETA$:IFA$=""THEN330
  34. 340 IFA$="N"THEN360
  35. 350 RUN
  36. 360 POKE56576,199:POKE53272,20:POKE648,4:POKEVO+21,0:PRINT"[147]":END
  37. 370 PRINT "ERREUR SUR DATA- SVP VERIFIER":GOTO360
  38. 380 REM  PAUSE POUR FONCTION
  39. 390 IFASC(R$)<>133THENRETURN
  40. 400 GETR$:IFR$=""THEN400
  41. 410 RETURN
  42. 420 REM  SONS
  43. 430 POKES+15,20:POKES+17,4:POKES+19,9
  44. 440 POKES+18,64:POKES+18,65:RETURN
  45. 450 POKES+15,10:POKES+19,9
  46. 460 POKES+18,128:POKES+18,129:RETURN
  47. 470 POKES+18,32:POKES+15,10
  48. 480 POKES+19,30
  49. 490 POKES+18,33:RETURN
  50. 500 POKES+15,35:POKES+19,1:FORJ=1TO5:NEXT
  51. 510 POKES+18,32:POKES+18,33:RETURN
  52. 520 REM  AJUSTEMENT NIVEAUX DE DIFFICULTE
  53. 530 PRINT "CHOISSIR LE NIVEAU DE DIFFICULTE(1 A 5)"
  54. 540 GETR$:IFR$=""THEN540
  55. 550 IF ASC(R$)<49 THEN540
  56. 560 IF ASC(R$)>53 THEN540
  57. 570 DL=ASC(R$)-48
  58. 580 HF=20-4*DL
  59. 590 NL=13-DL
  60. 600 POKEMF+1,NL
  61. 610 SI=1+2*DL+INT(DL^2/2)
  62. 620 PRINT "[145]                                       ":RETURN
  63. 630 REM   OBTENIR NOUVELLES BOMBES
  64. 640 BI=BI-2-INT(DL/2):IFBI<5THENBI=5
  65. 650 BA=BI:HF=HF-1:IFHF<0THENHF=0
  66. 660 FORI=SO+919TOSO+959-BA*40STEP-40:POKEI,27:GOSUB500:NEXT
  67. 670 POKESO+1016,PEEK(SO+1016)-1
  68. 680 RETURN
  69. 690 REM  BONUS
  70. 700 BL=300:POKEVO+3,250
  71. 710 GOSUB470:K=10
  72. 720 FORI=250TO50STEP-1:POKEVO+5,I:POKES+15,K:K=K+1:NEXT
  73. 730 IFOP=5THENSC=SC+SI:BO=BO+SI:GOTO870
  74. 740 POKEVO+2,241:POKEVO+3,53
  75. 750 T=SO+30-2*OP
  76. 760 I=241:II=0:POKEVO+16,PEEK(VO+16)AND253
  77. 770 GOSUB450:K=10
  78. 780 IFI=257THENII=256:POKEVO+16,PEEK(VO+16)OR2
  79. 790 POKEVO+2,I-II:IFI>266+16*OPTHEN820
  80. 800 K=K+8:IFK<40THENPOKES+15,K
  81. 810 I=I+8:GOTO780
  82. 820 POKEVO+2,250:SL=SO+30+2*OP:OP=OP+1
  83. 830 POKESL,28:POKESL+1,29
  84. 840 GOSUB450:FORK=10TO18STEP4:POKES+15,K:NEXTK
  85. 850 POKEVO+2,0:POKEVO+3,0
  86. 860 POKESL,32:POKESL+1,32
  87. 870 SC=SC+SI:BO=BO+SI
  88. 880 SS$=STR$(SC):PRINT"[153]"SPC(31-LEN(SS$))RIGHT$(SS$,LEN(SS$)-1)
  89. 890 FORI=1TO200:NEXT
  90. 900 GOSUB470:K=211
  91. 910 FORI=50TO250:POKEVO+5,I:POKES+15,K:K=K-1:NEXT
  92. 920 POKES+15,0:POKEVO+16,0:RETURN
  93. 930 REM  PISTE TIREE
  94. 940 IFBA=.THENRETURN
  95. 950 RW=32768+INT((PEEK(VO+1)-46)/8)*40
  96. 960 POKEVO+3,PEEK(VO+1)+3:PX=173+DI*28
  97. 970 GOSUB450:K=10:IFDITHEN1040
  98. 980 FORI=RW+18TORWSTEP-2:IFPEEK(I)=31THENSL=I-1:I=RW-2
  99. 990 IFPEEK(I)=30THENSL=I:I=RW-2
  100. 1000 POKEVO+2,PX:PX=PX-16:IFK<40THENK=K+4:POKES+15,K
  101. 1010 NEXT
  102. 1020 IFI=RW-2THEN1180
  103. 1030 GOTO1100
  104. 1040 IX=0:FORI=RW+21TORW+37STEP2:IFPEEK(I)=30THENSL=I:I=RW+39
  105. 1050 IFPEEK(I)=31THENSL=I-1:I=RW+39
  106. 1060 POKEVO+2,PX-IX:PX=PX+16:IFPX=265THENIX=256:POKEVO+16,2
  107. 1070 IFK<40THENK=K+4:POKES+15,K
  108. 1080 NEXT
  109. 1090 IFI=RW+39THEN1180
  110. 1100 POKESL,28:POKESL+1,29:GOSUB450
  111. 1110 TL=SL-65536:FORI=0TONL:IFL%(I)=TLTHENL%(I)=0:I=NL+1
  112. 1120 NEXT
  113. 1130 FORK=10TO18STEP4:POKES+15,K:NEXT
  114. 1140 SC=SC+SI:SS$=STR$(SC):PRINT"[153]"SPC(31-LEN(SS$))RIGHT$(SS$,LEN(SS$)-1)
  115. 1150 POKESL,32:POKESL+1,32
  116. 1160 BO=BO+SI
  117. 1170 IFBO>BLTHENBO=BO-BL:GOSUB700
  118. 1180 POKEVO+2,0:POKEVO+3,0:POKEVO+16,0
  119. 1190 POKE(SO+159+(20-BA)*40),32:BA=BA-1:IFBA=.THENPOKESO+1016,PEEK(SO+1016)+1
  120. 1200 RETURN
  121. 1210 REM  DEBUT ECRAN
  122. 1220 A$=",,,,,,,,,,-./,,,,,,,,,,,,,,,,-./,,,,,,,,,,,,,-./,,"
  123. 1230 B$="+++++++++++++++++++++++++++++++++++++++"
  124. 1240 FORI=STOS+23:POKEI,0:NEXT
  125. 1250 POKES+23,0:POKES+22,18
  126. 1260 POKES,32:POKES+1,2:POKES+24,31:POKES+3,14
  127. 1270 POKES+5,40:POKES+6,0
  128. 1280 POKEVO+33,0:POKEVO+32,12
  129. 1290 PRINT"[147][147][153] HAUT:00000"SPC(8)"RESULTAT:00000"
  130. 1300 SS$=STR$(HI):PRINT"[153]"SPC(12-LEN(SS$))RIGHT$(SS$,LEN(SS$)-1)
  131. 1310 POKE214,22:PRINT:PRINT""LEFT$(A$,40)B$;
  132. 1320 SYS49420:POKEVO+39,1:POKEVO+40,1
  133. 1330 POKEVO+41,1:POKEVO+21,7:POKEMF+8,0
  134. 1340 POKESO+999,43:POKESO+23527,5
  135. 1350 FORI=SO+159TOSO+919STEP40:POKEI,27
  136. 1360 POKEI+22528,2:NEXT
  137. 1370 POKESO+1016,16:POKEVO+1,100:POKEVO,176:POKEVO+16,0:DI=0
  138. 1380 POKESO+1017,20:POKESO+1018,18
  139. 1390 POKEVO+2,0:POKEVO+3,0
  140. 1400 POKEVO+5,250:POKEVO+4,216
  141. 1410 FORI=55326TO55335:POKEI,7:NEXT
  142. 1420 RETURN
  143. 1430 REM  CHARGEMENTS DES DATA
  144. 1440 PRINT"[147]  CHARGEMENT DES DONNEES   SVP ATTENDEZ"
  145. 1450 POKE56334,PEEK(56334)AND254
  146. 1460 POKE1,PEEK(1)AND251
  147. 1470 FORI=34816TO35327:POKEI,PEEK(I+18432):NEXT
  148. 1480 POKE1,PEEK(1)OR4
  149. 1490 POKE56334,PEEK(56334)OR1
  150. 1500 FORI=SO+1024TOSO+1343:POKEI,0:NEXT:POKESO+1280,255
  151. 1510 READL:IFL=0THENGOTO1530
  152. 1520 FORI=0TO7:READA:POKEL+I,A:CK=CK+A:NEXT:GOTO1510
  153. 1530 IF CK<>63389THEN370
  154. 1540 POKE251,111
  155. 1550 RETURN
  156. 1560 REM  DEPLACER L ECRAN AUDESSUS DU BASIC
  157. 1570 POKE648,128
  158. 1580 POKE56576,PEEK(56576)AND252OR1
  159. 1590 POKEVO+24,2
  160. 1600 IFPEEK(251)<>111THENGOSUB1440
  161. 1610 POKEVO+32,11:POKEVO+33,11
  162. 1620 POKE56,127:POKE52,127
  163. 1630 HI=PEEK(820)*65536+PEEK(821)*256+PEEK(822)
  164. 1640 GOSUB 1220:GOSUB 530
  165. 1650 RETURN
  166. 1660 REM DATA DES CHARACTERES
  167. 1670 DATA35032,0,0,0,125,255,125,0,0
  168. 1680 DATA35040,16,70,185,134,93,82,195,16
  169. 1690 DATA35048,8,82,131,212,43,117,66,4
  170. 1700 DATA35056,0,63,96,255,204,127,0,0
  171. 1710 DATA35064,0,252,6,255,51,254,0,0
  172. 1720 DATA35160,255,255,255,255,255,255,255,255
  173. 1730 DATA35168,0,0,0,0,0,0,0,0
  174. 1740 DATA35176,255,63,15,15,15,15,15,15
  175. 1750 DATA35184,255,255,255,195,0,0,0,0
  176. 1760 DATA35192,255,252,240,240,240,240,240,240
  177. 1770 REM DATA DES SPRITES
  178. 1780 DATA33792,7,255,254,30,0,7,127,254
  179. 1790 DATA33800,63,0,0,63,127,254,63,0
  180. 1800 DATA33808,240,63,0,63,254,0,0,0
  181. 1810 DATA33856,7,255,254,30,0,7,127,254
  182. 1820 DATA33864,1,0,0,1,127,254,1,0
  183. 1830 DATA33872,240,1,0,63,254,0,0,0
  184. 1840 DATA33920,127,255,224,224,0,120,128,127
  185. 1850 DATA33928,254,252,0,0,252,127,254,252
  186. 1860 DATA33936,15,0,127,252,0,0,0,0
  187. 1870 DATA33984,127,255,224,224,0,120,128,127
  188. 1880 DATA33992,254,128,0,0,128,127,254,128
  189. 1890 DATA34000,15,0,127,252,0,0,0,0
  190. 1900 REM ROUTINE LANGUAGUE MACHINE
  191. 1910 DATA49152,166,47,134,95,166,48,134,96
  192. 1920 DATA49160,160,0,177,95,201,204,240,16
  193. 1930 DATA49168,160,2,177,95,24,101,95,133
  194. 1940 DATA49176,95,144,0,230,96,76,8,192
  195. 1950 DATA49184,96,165,143,162,3,10,202,208
  196. 1960 DATA49192,252,24,101,143,10,24,101,143
  197. 1970 DATA49200,24,105,59,133,143,74,74,56
  198. 1980 DATA49208,229,11,176,252,101,11,133,11
  199. 1990 DATA49216,96,24,32,148,177,160,0,177
  200. 2000 DATA49224,88,208,63,162,40,134,93,162
  201. 2010 DATA49232,128,134,94,162,34,134,11,32
  202. 2020 DATA49240,33,192,165,11,201,18,48,7
  203. 2030 DATA49248,201,21,16,3,24,105,17,101
  204. 2040 DATA49256,93,133,93,144,2,230,94,160
  205. 2050 DATA49264,0,177,93,201,32,208,93,200
  206. 2060 DATA49272,177,93,201,32,208,86,165,93
  207. 2070 DATA49280,145,88,165,94,136,145,88,76
  208. 2080 DATA49288,189,192,177,88,133,94,200,177
  209. 2090 DATA49296,88,133,93,160,40,177,93,201
  210. 2100 DATA49304,32,208,58,200,177,93,201,32
  211. 2110 DATA49312,208,51,169,32,160,0,145,93
  212. 2120 DATA49320,200,145,93,165,93,24,105,40
  213. 2130 DATA49328,133,93,145,88,136,144,6,230
  214. 2140 DATA49336,94,165,94,145,88,169,30,145
  215. 2150 DATA49344,93,200,169,31,145,93,165,94
  216. 2160 DATA49352,24,105,88,133,94,169,7,145
  217. 2170 DATA49360,93,136,145,93,96,48,253,169
  218. 2180 DATA49368,32,160,0,145,93,200,145,93
  219. 2190 DATA49376,136,152,145,88,200,145,88,141
  220. 2200 DATA49384,122,193,76,212,192,32,0,192
  221. 2210 DATA49392,160,1,177,95,201,128,240,6
  222. 2220 DATA49400,32,8,192,76,240,192,173,123
  223. 2230 DATA49408,193,133,11,32,33,192,230,11
  224. 2240 DATA49416,32,65,192,96,120,162,25,142
  225. 2250 DATA49424,20,3,162,193,142,21,3,88
  226. 2260 DATA49432,96,72,138,72,162,3,189,124
  227. 2270 DATA49440,193,240,3,222,124,193,202,16
  228. 2280 DATA49448,245,173,0,220,74,176,11,174
  229. 2290 DATA49456,1,208,224,59,144,4,202,142
  230. 2300 DATA49464,1,208,74,176,11,174,1,208
  231. 2310 DATA49472,224,227,176,4,232,142,1,208
  232. 2320 DATA49480,74,176,3,238,128,193,74,176
  233. 2330 DATA49488,3,238,129,193,74,176,3,238
  234. 2340 DATA49496,130,193,173,127,193,208,21,169
  235. 2350 DATA49504,12,141,127,193,169,63,77,244
  236. 2360 DATA49512,136,141,244,136,169,252,77,252
  237. 2370 DATA49520,136,141,252,136,104,170,104,76
  238. 2380 DATA49528,49,234,0,0,0,0,0,0
  239. 2390 DATA0
  240.